(pop3-open-server): Set process-coding-system-alist around open-network-stream.

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 4b10f782e3f5c1c7affa868f9149294d2d5b7cfb..27189bf3725ce0dcb643249bfb1717b830a3f6ec 100644 (file)
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -109,7 +109,9 @@ Used for APOP authentication.")
 Returns the process associated with the connection."
   (let ((process-buffer
         (get-buffer-create (format "trace of POP session to %s" mailhost)))
-       (process))
+       (process)
+       (process-coding-system-alist
+        (cons '("POP" . nil) process-coding-system-alist)))
     (save-excursion
       (set-buffer process-buffer)
       (erase-buffer))